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INTEGER*4 FUNCTION TIMCMP(A,B) 


800s ¢ 
¢ : Version: *v04-000' 
5 Cee ee eee ee eee AAAAAAAAEAAAEEEAEEAE HERAT E ETAT EERE RAEEEEEEAEREEEE 
Ce * 
900 C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . | 
8 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3909 ce ALL RIGHTS RESERVED. * | 
® 
0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
pols C* ONLY IN ACCORDANCE WITH THE TERMS S$ LICENSE AND WITH THE ®* 
1 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ® 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
Bor $ ES TRANSFERRED. * 
® ® 
0018 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
Base CORPORATION, . 
0092 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 
» Z eS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 
0005 ts : 
Boss CPR ee eee REE AEE AEE AREA AAEA AEE AEAA AERA AEE AEAEA RAAT TEER 
0028 
534 C Author Bill Storey Creation Date: Unknown 
0031 C++ 
0052 ¢ | 
003 C FUNCTIONAL DESCRIPTION: 
sf 
0036 C INTEGER*®4 FUNCTION TIMCMP is used to compare two VAX/VMS | 
0037 C absolute time values. Each time value is a binary number 
0038 C in 100-nanosecond units offset from the system base date 
0039 C and time, which is 17-NOV-1858 00:00:00.0. Each absolute 
Bpee : time is a positive value. 
One : If A > B then a positive number is returned. 
Boee : If A = 6 then 0 is returned. 
Bose : If A < B then a negative number is returned. | 
Doug : Modified by: 
6056 C v02-001 BP0001 _ Brian Porter 01-DEC-1981 | 
Boe) C Added protection against garbage being in date field 
2§ C of error log entry header. 
5 (ee 
54 (-- | 
i | 
35 | 
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-Sep- DISKSVMSMASTER: CERF .SRCITIMCMP.FOR;1 | 
00 INTEGER®4 A(O:1) 
9089 | 
? INTEGER®4 B(0:1) 
g | 
3 TIMCMP = LibSextzv(0,30,A(1)) = LibSextzv(0,30,8(1)) | 
Bpe8 IFCTIMCMP .NE. 0) RETURN 
0068 IF CIANDCIEOR(A(0) ,8(0)),"80000000'x) .EQ. 0) 
0069 1 THEN 
0070 TIMCMP = A(O) = B(O) 
0071 ELSE 
Bor¢ TIMCMP = B(0) 
007 ENDIF 
0074 
0075 RETURN 
0076 
0077 END | 
| 
| 
PROGRAM SECTIONS | 
Name Bytes Attributes 
0 S$CODE 106 PIC CON REL LCL SHR EXE RD NOWRT LONG | 
1 SPDATA 8 PIC CON REL LCL SHR NOEXE RD NOWRT LONG | 
2 SLOCAL 76 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 190 


ENTRY POINTS 
Address Type Name 
0-00000000 I*4 TIMCMP 


ARRAYS 

Add:iess Type Name Bytes Dimensions 
AP-000000048 I*4 A 
AP-0000000828 I*4 86 (0:1) 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 LIBSEXTZV | 


| 
| 
: (0:1) | 


moe RARE MESES INSRIRME Hon sons > 
COMMAND QUALIFIERS | 


FORTRAN /LIS=LIS$:TIMCMP/OBJ=0BJ$:TIMCMP MSRC$:TIMCMP | 
/DEBUG= (NOSYRBOLE TRACEBALK NOUNDERF LOW) 


TRA 

/STANDARD= (NOSYNTAX, NOSOURC 

/SHOW= (NOPREPR PROCESSOR, NOINC cLODE 

/F77 /NOG_FLOATING /14 wire /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


Run Time: 0.90 seconds 
Elapsed Time: 4.08 seconds 
Page Faults: 93 


Dynamic Memory: 164 pages 


COMPILATION STATISTICS 
| 
| 
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